home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).adf / Examples / WhereFrom.p < prev    next >
Text File  |  1989-07-02  |  375b  |  19 lines
  1. Program WhereFrom;
  2.  
  3. {$I ":Include/DOS.i"}
  4.  
  5. var
  6.     stdfile : FileHandle;
  7.  
  8. begin
  9.     { Calling Input() will always give you the filehandle of standard
  10.       input, since that's where the startup code gets it from }
  11.  
  12.     stdfile := DOSInput();
  13.     if IsInteractive(stdfile) then
  14.     writeln('Input is coming from the console.')
  15.     else
  16.     writeln('Input is comming from a file.');
  17. end.
  18.  
  19.